1 REMCONTENTS MAP
3 OPEN15,8,15
4 POKE650,255
5 DA$=" --------------------------------------"
6 LI=52016:SU=51206:SD=51209:CL=51203
7 FORC=1TO25:PRINTDA$:NEXT
8 PRINT"[147][154]";:POKE53281,0:POKE53282,9
9 POKE1020,4:POKE1021,24:POKE1022,0:POKE1023,39
10 FI$="CONTENTS MAP.T"
20 DM=500:DIMIN$(DM)
30 GOSUB5000:REMOPENING BLURB
40 GOSUB6000:REMLOAD FILE
45 PRINT"[147]";
50 GOSUB7000:PRINT"";
800 PRINT:FORC1=0TO17:PRINTIN$(C1):NEXT:PRINTIN$(C1);:LP=0
810 POKE646,1:SYSCL:PRINT"";
850 GETK$:PRINT"[158]";:IFK$=""THEN850
860 IFK$="[145]"ORK$=""ORK$="[134]"ORK$="[138]"THENGOSUB11000:GOTO850
865 IFK$="[137]"ORK$="[133]"THENFORCC=1TO18:GOSUB11000:NEXT:GOTO850
870 IFK$=""ORK$="[157]"ORK$="[139]"ORK$="[135]"THENGOSUB10000:GOTO850
875 IFK$="[136]"ORK$="[140]"THENFORCC=1TO18:GOSUB10000:NEXT:GOTO850
877 IFK$="P"THENGOSUB2000:PRINT"[147]":GOTO50
878 IFK$="X"ORK$="[216]"THEN63000
880 PRINT"[158]";:GOSUB7000:PRINT"[146][154]";:GOSUB7000:GOTO850
1000 :
2000 REM HARD(null)
2010 PRINT""DA$:PRINTDA$:PRINT"[212]URN ON YOUR PRINTER AND PRESS[160]<RETURN>"
2011 GETK$:IFK$=""THEN2011
2012 IFK$<>CHR$(13)THEN2090
2015 PRINT"  [208]RESS ANY KEY TO STOP PRINTING.      "
2020 PRINT"";
2030 OPEN4,4,7
2040 FORCP=0TOLC:GETK$:IFK$<>""THEN2070
2050 PRINT#4,SPC(20);IN$(CP)
2060 NEXT
2070 PRINT#4:CLOSE4
2090 RETURN
5000 PRINT""DA$:PRINT" --[204]OADING THE [204][207][193][196][211][212][193][210] CONTENTS MAP.--"
5010 PRINT" ----------[208]LEASE BE PATIENT.----------"
5045 PRINT:PRINT:PRINT"[208]RESS 'X' TO EXIT NOW WITHOUT READING"
5050 PRINT:PRINT"THIS ARTICLE."
5060 RETURN
6000 OPEN8,8,8,FI$
6030 LL=0:POKE781,8:SYS65478
6040 SYSLI,B$:IN$(LL)=MID$(B$,1)
6044 IFPEEK(198)<>0THENIFPEEK(631)=88THEN6100
6045 IFST=0THENLL=LL+1:GOTO6040
6100 SYS65484:CLOSE8:CLOSE15
6105 LC=LL
6110 RETURN
6150 SYS65484:CLOSE8:CLOSE15
7000 PRINT" -----[208]RESS F1-F7 KEYS TO MOVE TEXT----"
7005 PRINT" -------[208]RESS 'P' TO PRINT TEXT.-------"
7010 PRINT" ----------[208]RESS 'X' TO EXIT-----------"
7015 PRINTDA$
7020 RETURN
10000 POKE646,1:SYSCL:PRINT"";
10010 IFLP<LC-15THENSYSSU:LP=LP+1:PRINT""IN$(LP+18):RETURN
10015 POKE53280,RND(1)*15
10020 RETURN
11000 POKE646,1:SYSCL:PRINT"";
11010 IF LP>0THENSYSSD:LP=LP-1:PRINT""IN$(LP):RETURN
11015 POKE53280,RND(1)*15
11020 RETURN
63000 POKE650,128
63010 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:END